home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 May / Pcwk5b99.iso / Documentation / Poser 3.0 / Slide Show / SLIDESHO.EXE / SLIDESHO.dxr / 00002_start-stop.ls next >
Encoding:
Text File  |  1998-03-18  |  496 b   |  22 lines
  1. on startMovie
  2.   global movielist, currentindex
  3.   set movielist to []
  4.   set currentindex to 0
  5.   repeat with i = 1 to the maxinteger
  6.     set name to getNthFileNameInFolder(the moviePath, i)
  7.     if name = EMPTY then
  8.       exit repeat
  9.     end if
  10.     if (name contains ".mov") or (name contains ".avi") or (name contains ".bmp") or (name contains ".pct") then
  11.       append(movielist, i)
  12.     end if
  13.   end repeat
  14.   if count(movielist) = 0 then
  15.     quit()
  16.   end if
  17. end
  18.  
  19. on stopMovie
  20.   clearGlobals()
  21. end
  22.